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— ContPolOefs.Mesa Edited by Sandman on August 23, 1977 9:34 PM 

DIRECTORY 

Mopcodes: FROM "mopcodes". 
AUoDefs: FROM "altodefs". 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM AUoDefs; 

ControlDefs: DEFINITIONS » 
BEGIN 

— control link definitions 

ControlLinkTag: TYPE = [frametag .. unboundtag]; 
frame tag: CARDINAL = 0; 
procdesctag: CARDINAL = 1; 
signaldesctag: CARDINAL = procdesctag; 
indirecttag: CARDINAL = 2; 
unboundtag: CARDINAL » 3; 

ExtendedControlLinkTag: TYPE = {frame, procDesc, indirect, uninitialized, representation}; 

ControlLink: TYPE = MACHINE DEPENDENT RECORD [ 
SELECT COMPUTED ExtendedControlLinkTag FROM 
frame => [ 

frameLink: FrameHandle], 
procDesc «> [ 

procLink: UNSPECIFIED], 
indirect => [ 

indirectLink: POINTER TO ControlLink], 
uninitialized -> [ 

info: UnboundDesc] , 
representation => [ 

data: [0. .377778], 

type: ControlLinkTag], 
ENDCASE]; 

GetReturnLink: MACHINE CODE RETURNS [ControlLink] = INLINE [Mopcodes . zLLB , returnOf f set] ; 
GetReturnFrame: MACHINE CODE RETURNS [FrameHandle] = INLIME [Mopcodes .zLLB . returnOf f set] ; 

FrameLink: TYPE = MACHINE DEPENDENT RECORD [ 
frame: FrameHandle]; 

ProcDesc: TYPE = MACHINE DEPENDENT RECORD [ 
gftindex: GFTIndex, 
epoffset: [0 . .eprange) , 
tag: ControlLinkTag]; 

SIgnalDesc: TYPE = ProcDesc: 

IndirectLink: TYPE = MACHINE DEPENDENT RECORD [ 
link: POINTER TO ControlLink]; 

UnboundDesc: TYPE = MACHINE DEPENDENT RECORD [ 
gftindex: GFTIndex, 
descindex: [0 .. eprange) , 
tag: ControlLinkTag]; 

TrapLink: ControlLink = ControlLink [ 
representation[data:0, type: frametag]] : 

PortTag: TYPE = (clink, plink}; 

PortHandle: TYPE = POINTER TO Port; 

Port: TYPE = MACHINE DEPENDENT RECORD [ 
pend ingPrame: ControlLink. 
destPort: SELECT COMPUTED PortTag FROM 
clink => [ 

1 ink : ControlLink] , 
pi ink => [ 

port: PortHandle], 
ENDCASE]; 
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-- frame definitions 

FrameClass: TYPE » {global, local, signal, catch}; 

FrameBase: TYPE = MACHINE DEPENDENT RECORD [ 
accesslink: Global FrameHandle, 
pc: WordPC, 

returnlink: ControlLink, 

extensions: SELECT COMPUTED FrameClass FROM 
global «> [ 

codebase: POINTER, 
gftindex: ProcDesc, 
ownerlink: GlobalFrameHandle, 
bindentry, bindlink: GlobalFrameHandle, 
codesegment: SegmentDefs . FileSegmentHandle, 
symbolsegment : SegmentDefs. Fi leSegmen tHandle] , 
local => C 

unused: UNSPECIFIED], 
signal => [ 
mark: BOOLEAN, 
unused: [0 . . 77777B]] , 
catch => [ 

unused: UNSPECIFIED, 
staticlink: FrameHandle], 
ENDCASE]; 

FrameHandle: TYPE ' POINTER TO FrameBase; 
NULLFrame: GlobalFrameHandle = LOOPHOLE[0]; 
GlobalFrameHandle: TYPE = POINTER TO global FrameBase; 

Alloc: MACHINE CODE [CARDINAL] RETURNS [POINTER] « INLINE[Mopcodes . zALLOC] ; 
free: MACHINE CODE [POINTER] = INLINE[Mopcodes . zFREE] ; 

— The following offsets are used by the compiler and MUST 
-- reflect the field offsets in the definition of FrameBase 

accessOffset: CARDINAL = 0; 
pcOffset: CARDINAL = 1; 
returnOffset: CARDINAL = 2; 
codebaseOffset: CARDINAL - 3; 
gftiOffset: CARDINAL = 4; 
ownerOffset: CARDINAL = 5; 
bindentryOffset: CARDINAL - 6; 
bindlinkOffset: CARDINAL = 7; 
codesegmentOffset: CARDINAL = 8; 
symbolsegmentOf fset: CARDINAL - 9; 

— efficiently addressable portion of frames 

globalbase: CARDINAL = 10; 

globalslots: CARDINAL = 8; 

procbase: CARDINAL = globalbase + globalslots; 

localbase: CARDINAL = 4; 

localslots: CARDINAL = 8; 

Tramelink: CARDINAL = localbase; 

Iprocslots, procslots: CARDINAL = 16; 

-- code segments 

WordPC: TYPE = RECORD [INTEGER]; 
BytePC: TYPE = RECORD [CARDINAL]; 

InstWord: TYPE = MACHINE DEPENDENT RECORD [ 
oddbyte, evenbyte: BYTE]; 

fielddescriptor: TYPE = MACHINE DEPENDENT RECORD [ 
posn, s i/e: [0. . 17B]]; 

epmin: CARDINAL =1; -- lower bound (module dependent) 
oprange: CARDINAL = 32; 

CsegPrefix: TYPE = MACHINE OrPENDENT RECORD [ 
swapinfo: WORD, 
ngfi: [1..4]. 
linkbase: [globalbase. . globalbase+16) . 

I 
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nUnks: [0. ,17778], 

EntryVector: ARRAY [0..epmin) OF EntryVectorltem] ; 

EntryVectorltem: TYPE » MACHINE DEPENDENT RECORD [ 
initialpc: WordPC, 
defaults: BOOLEAN, 
nparams : [0. . 177B], 
framesize: [0..377B]]; 

MainBodylndex: CARDINAL » 0; 

-- Global Frame Table definitions 

GFTItem: TYPE = MACHINE DEPENDENT RECORD [ 
frame: Global FrameHandle, 
epbase: CARDINAL]; 

GFTIndex: TYPE = [0..777B]; 

GFTNull, NullGFTIndex: GFTIndex = LAST[GFTIndex] ; 

NULLEpBase: CARDINAL = LAST[CARDINAL] ; 

MaxGFTLength: CARDINAL = (LAST[GFTIndex]+l)*$IZE[GFTItem]*SIZE[GFTItem]; 

-- system frame allocation vector 

maxallocslot: CARDINAL = 19; 
NULLAllocLink: POINTER = LOOPHOLE[1]; 
AllocationVectorSize: CARDINAL = (maxal locslot+3)/2 ♦ 2; 

-- control registers 

GFTreg: CARDINAL = 1; -- global frame table base 
SVreg, SDreg: CARDINAL = 2; -* system transfer vector 
AVreg: CARDINAL = 3: -- allocation vector base 

WDCreg: CARDINAL = 4; -- wakeup disable counter 

ReadWDC: MACHINE CODE RETURNS [CARDINAL] = INLINE [Mopcodes . zRR , WDCreg]; 

WriteWDC: MACHINE CODE [CARDINAL] = INLINE [Mopcodes . zWR, WDCreg]; 



Lreg: CARDINAL = 375B 
Greg: CARDINAL = 376B 
Creg: CARDINAL = 377B 



local frame 
global frame 
code base 



maxparmsinstack: CARDINAL = 5; -- maximum parameter depth 

StateVector: TYPE =: MACHINE DEPENDENT RECORD [ 
stk: ARRAY[0..7] OF UNSPECIFIED, 
instbyte: BYTE, 
fill: [0..17B]. 
stkptr: [0..178], 
X, Y: UNSPECIFIED]; 

-- indices in system transfer vector (including trap codes) 

SystemDispatchSize: CARDINAL = PageSize-Al locat ionVectorSize ; 

sBRK: CARDINAL = 0; 
sAlternateBreak: CARDINAL = 1; 
sStackCrror: CARDINAL = 2; 
sAllocListrmpty: CARDINAL = 6; 
sControirault: CARDINAL = 7; 
sCsegSwappedOut: CARDINAL = lOB; 
sAllGC: CARRINAL = IIB; 
sFree: CARDINAL = 12B; 
sUnbound: CARDINAL = 13B; 

sSignalLisl: CARDINAL = 20B; 
sS ignal : CARDINAL = 21B; 
sErrorl ist: CARDINAL = 22B; 
sFrror: CARDINAL = 23B; 
sReselPC: CARDINAL = 24B; 
sResumefrror: CARDINAL = 25B; 
sUnnamedfrror: CARDINAL = 268; 
sUncaugtUS ignal : CARDINAL = 27B; 
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sBLTE: CARDINAL = 30B; 
sDivSS: CARDINAL » 31B; 
sStringlnit: CARDINAL « 328; 

sLoad: CARDINAL « 338; 
sNew: CARDINAL » 348; 
sCopy: CARDINAL = 368; 
sBind: CARDINAL » 368; 
sUnNew: CARDINAL = 378; 

sCoreSwap: CARDINAL = 408; 
sProcessBreakpoint: CARDINAL = 41B; 
sinterrupt: CARDINAL * 428; 
sGoingAway: CARDINAL = 43B; 
sAddFileRequest: CARDINAL - 448; 
sThisSpaceAvailable: CARDINAL = 458; 

sPortlnit: CARDINAL ^ 468; 
sInPortlnit: CARDINAL - sPortlnit; 
sOutPortlnit: CARDINAL = sPortIn1t+l; 

sGFTLength: CARDINAL = 508; 
sBYTBLTE: CARDINAL = 518; 
sStart; CARDINAL = 528; 
sRestart; CARDINAL = 538; 

END. 



